home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / txl / rexxmdl2.lha / RexModula2 / query.rmi < prev    next >
Text File  |  1992-02-26  |  858b  |  52 lines
  1. MODULE query;
  2.  
  3.  
  4. FROM XdrM2_query IMPORT TelNo, message;
  5. FROM InOut   IMPORT Read, ReadCard, 
  6.             WriteBf, WriteString, WriteLn, WriteInt;
  7.  
  8.  
  9. VAR    i : TelNo;
  10.     m : message;
  11.     j : CARDINAL;
  12.     c : CHAR;
  13.  
  14. BEGIN
  15.  
  16.   LOOP 
  17.     WriteLn(); WriteLn();
  18.     WriteString("Enter telephone number !  ");
  19.     WriteBf();
  20.     ReadCard(j); Read(c); i := (ORD(j));
  21.     CALL(q1,i);
  22.     WAIT(q1,m);
  23.     IF i=0 THEN EXIT; END;
  24.  
  25.     WriteLn(); WriteLn();
  26.     IF m.tag = 1 THEN
  27.       WITH m.some DO
  28.     WriteString("ChName: "); 
  29.     WriteString(ChName); 
  30.     WriteLn();
  31.  
  32.     WriteString("FaName: "); 
  33.     WriteString(FaName); 
  34.     WriteLn();
  35.  
  36.     WriteString("project: "); 
  37.     WriteString(project); 
  38.     WriteLn();
  39.  
  40.     WriteString("tel: "); 
  41.     WriteInt(tel,0); 
  42.     WriteLn();
  43.       END;
  44.     ELSE
  45.       WriteString("No entry for telephone number "); 
  46.       WriteInt(i,0); 
  47.       WriteLn();
  48.     END;
  49.   END;
  50.  
  51. END query.
  52.